home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog5.arj / ALPHABUF.PAS next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  420 b   |  19 lines
  1. program AlphaBuf;
  2. uses WinCrt;
  3. var
  4.   Buffer: array[0 .. 79] of Char;
  5.   Ch: Char;
  6. begin
  7.   for Ch := 'A' to 'Z' do
  8.     Buffer[Ord(Ch) - Ord('A')] := Ch;
  9.   WriteBuf(Buffer, 26)
  10. end.
  11.  
  12.  
  13. {--------------------------------------------------------------
  14.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  15.   Revision 1.00    Date: 4/09/1991
  16. ---------------------------------------------------------------}
  17.  
  18.  
  19.